www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/conn.asp

    <%
'Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
fString=ChkBadWords(fString)
HTMLEncode = fString
end if
end function
'Rem 过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function 
end if
checkStr=replace(str,"'","''")
end function
Db="data/#gj28com_data.asa"              '网址站数据库连接地址
sessionvar="www.gj28.com"    '设置变量，变量不可以为NO，否则后台无法登陆
%>